1 POKE53280,0:POKE53281,0
10 T$="[159][147]       [196]EMO [206]R.1 FUER [208][204][207][212]-[194][193][211][201][195]        "
20 PRINTT$
30 PRINT"   [205]IT DISEM [208]ROGRAMM KOENNEN [212]ORTEN-"
40 PRINT"   GRAFIKEN ERSTELLT WERDEN."
50 PRINT"   [193]US WIEVIELEN [211]EKTOREN SOLL"
60 PRINT"   DIE [199]RAFIK BESTEHEN (2-9) ?"
70 (null):AN$=""
80 : (null) 31,11,1,1,AN$
90 : AN = VAL(AN$)
100 (null) AN <= 9 AND AN > 1
110 PRINTT$
120 PRINT"[206]R.[194]EZEICHNUNG [215]ERT   [200]ERVORHEBEN (J/N)"
130 FOR I = 1 TO AN
140 : (null) 0,5+I,I
150 : (null) 3,6+I,"[163][163][163][163][163][163][163][163][163][163][163]"
160 : (null) 3,5+I,11,0,BE$(I)
170 : (null) 15,6+I,"[163][163][163][163][163][163][163][163][163]"
180 : (null) 15,5+I,9,2,WE$(I)
190 : IF VAL(WE$(I)) = 0 THEN 180
200 : WE(I) = VAL(WE$(I))
210 : SU = SU + WE(I)
220 : (null) 30,6+I,"[163]"
230 : HE$ = "N"
240 : (null) 30,5+I,1,0,HE$
250 : IF HE$ <> "J" AND HE$ <> "N" THEN 230
260 : IF HE$ = "J" THEN WE(I) = -WE(I)
270 NEXT
280 PRINT T$
290 PRINT"   [215]IE SOLL DIE [213]EBERSCHRIFT LAUTEN ?"
300 (null) 10,11,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
310 (null) 10,10,20,0,UE$
320 (null) 2
330 (null) 3
340 (null) UE$
350 (null) 0,-200
360 (null)
370 (null) 479/2,0
380 FOR I = 1 TO AN
390 : IF WE(I)<0THENHE=39:WE(I)=ABS(WE(I))
400 : PR = 100 / SU * (WE(I))
410 : WI = INT (PR * 3.6 + .5)
420 : EW = EW + WI
430 : HI = SW + (WI / 2)
440 : IF PR < 1 THEN 530
450 : (null) I
460 : (null) 0,0,HE,HE,HI,HI,1
470 : (null) 0,0,200,SW,EW,1
480 : GR = 4
490 : IF PR < 3 THEN GR = 8
500 : (null) 0,0,100 + HE,100 + HE,HI,HI,1
510 : PR = INT (PR + 0.5)
520 : (null) -10,-10,GR,0,MID$ (STR$ (PR),2) + "%"
530 : SW = EW
540 : HE = 0
550 NEXT
560 (null) 0,-250
570 (null) 4
580 (null)
590 FOR I = 1 TO AN
600 : (null) I
610 : PR = INT((100/SU*WE(I))+.5)
611 (null) ""
620 : PR$ = RIGHT$("  "+STR$(PR)+"%",4)
630 : GOSUB 680
640 : (null) "   "BE$(I)"   "PR$" = "WE$(I)
650 NEXT
660 PRINT"[147] [197]NDE "
670 END
680 WE(I)= INT(WE(I)*100+.5)/100
690 WE$(I)=RIGHT$("         "+STR$(INT(WE(I))),9)
700 WE$(I)=WE$(I)+"."+LEFT$(MID$(STR$(WE(I)-INT(WE(I)))+"00",3),2)
710 RETURN